object FBrasfort: TFBrasfort
  Left = 192
  Top = 124
  Width = 608
  Height = 682
  Caption = 'Exporta'#231#227'o de Dados'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 10
    Top = 60
    Width = 63
    Height = 13
    AutoSize = False
    Caption = 'Empresa'
  end
  object Label2: TLabel
    Left = 10
    Top = 85
    Width = 63
    Height = 13
    AutoSize = False
    Caption = 'Mes e Ano'
  end
  object Label3: TLabel
    Left = 4
    Top = 0
    Width = 585
    Height = 41
    AutoSize = False
    Caption = 'Grupo Brasfort - exporta'#231#227'o de dados cont'#225'beis'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clHighlight
    Font.Height = -27
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object Button1: TButton
    Left = 435
    Top = 416
    Width = 75
    Height = 25
    Caption = '&Gerar dados'
    TabOrder = 2
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 511
    Top = 416
    Width = 75
    Height = 25
    Caption = '&Sair'
    TabOrder = 3
    OnClick = Button2Click
  end
  object Edit2: TEdit
    Left = 80
    Top = 85
    Width = 121
    Height = 21
    MaxLength = 7
    TabOrder = 1
  end
  object ComboBox1: TComboBox
    Left = 80
    Top = 56
    Width = 505
    Height = 21
    ItemHeight = 13
    ItemIndex = 0
    TabOrder = 0
    Text = '001 - Brasfort Seguran'#231'a - Matriz'
    Items.Strings = (
      '001 - Brasfort Seguran'#231'a - Matriz'
      '002 - Brasfort Seguran'#231'a - Filial'
      '003 - Brasfort Administra'#231#227'o - Matriz'
      '004 - Brasfort Administra'#231#227'o - Filial')
  end
  object mnotas: TMemo
    Left = 3
    Top = 112
    Width = 585
    Height = 302
    ScrollBars = ssBoth
    TabOrder = 4
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 448
    Width = 577
    Height = 185
    DataSource = ds_notas
    TabOrder = 5
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object clientes: TQuery
    DatabaseName = 'c:\brasfort\fatura'
    SQL.Strings = (
      'select * from clientes')
    Left = 368
    Top = 80
    object clientesCODIGO: TFloatField
      FieldName = 'CODIGO'
    end
    object clientesNOME: TStringField
      FieldName = 'NOME'
      Size = 58
    end
    object clientesENDERECO: TStringField
      FieldName = 'ENDERECO'
      Size = 58
    end
    object clientesCIDADE: TStringField
      FieldName = 'CIDADE'
      Size = 30
    end
    object clientesUF: TStringField
      FieldName = 'UF'
      Size = 2
    end
    object clientesCEP: TStringField
      FieldName = 'CEP'
      Size = 8
    end
    object clientesFONE1: TStringField
      FieldName = 'FONE1'
      Size = 10
    end
    object clientesFONE2: TStringField
      FieldName = 'FONE2'
      Size = 10
    end
    object clientesFAX: TStringField
      FieldName = 'FAX'
      Size = 10
    end
    object clientesCGC: TStringField
      FieldName = 'CGC'
      Size = 14
    end
    object clientesINSCRICAO: TStringField
      FieldName = 'INSCRICAO'
    end
    object clientesCONTATO: TStringField
      FieldName = 'CONTATO'
      Size = 38
    end
    object clientesESTADUAL: TStringField
      FieldName = 'ESTADUAL'
    end
    object clientesEMAIL: TStringField
      FieldName = 'EMAIL'
      Size = 58
    end
    object clientesEMPRESA: TStringField
      FieldName = 'EMPRESA'
      Size = 1
    end
    object clientesATIVO: TStringField
      FieldName = 'ATIVO'
      Size = 1
    end
    object clientesPUBLICO: TStringField
      FieldName = 'PUBLICO'
      Size = 1
    end
    object clientesBOLETO: TStringField
      FieldName = 'BOLETO'
      Size = 1
    end
    object clientesGPS: TStringField
      FieldName = 'GPS'
      Size = 1
    end
    object clientesPORTARIA: TStringField
      FieldName = 'PORTARIA'
      Size = 1
    end
    object clientesIR: TFloatField
      FieldName = 'IR'
    end
    object clientesPIS: TFloatField
      FieldName = 'PIS'
    end
    object clientesCS: TFloatField
      FieldName = 'CS'
    end
    object clientesCOFINS: TFloatField
      FieldName = 'COFINS'
    end
    object clientesCCUSTO: TStringField
      FieldName = 'CCUSTO'
      Size = 3
    end
    object clientesRETISS: TStringField
      FieldName = 'RETISS'
      Size = 1
    end
    object clientesCODPAIS: TStringField
      FieldName = 'CODPAIS'
      Size = 4
    end
    object clientesCODIBGE: TStringField
      FieldName = 'CODIBGE'
      Size = 5
    end
    object clientesMUNICIPIO: TStringField
      FieldName = 'MUNICIPIO'
      Size = 7
    end
    object clientesIMPRIMEGPS: TStringField
      FieldName = 'IMPRIMEGPS'
      Size = 1
    end
    object clientesCCUSTO1: TStringField
      FieldName = 'CCUSTO1'
      Size = 3
    end
    object clientesTIPO: TSmallintField
      FieldName = 'TIPO'
    end
  end
  object notas: TQuery
    Active = True
    DatabaseName = 'Brasfort'
    SQL.Strings = (
      'select * from notasa order by emissao')
    Left = 480
    Top = 80
    object notasNUMERO: TFloatField
      FieldName = 'NUMERO'
      Origin = 'BRASFORT."notasa.DBF".NUMERO'
    end
    object notasCLIENTE: TFloatField
      FieldName = 'CLIENTE'
      Origin = 'BRASFORT."notasa.DBF".CLIENTE'
    end
    object notasEMISSAO: TDateField
      FieldName = 'EMISSAO'
      Origin = 'BRASFORT."notasa.DBF".EMISSAO'
    end
    object notasVENCTO: TDateField
      FieldName = 'VENCTO'
      Origin = 'BRASFORT."notasa.DBF".VENCTO'
    end
    object notasRETENCAO1: TSmallintField
      FieldName = 'RETENCAO1'
      Origin = 'BRASFORT."notasa.DBF".RETENCAO1'
    end
    object notasVALORRET1: TFloatField
      FieldName = 'VALORRET1'
      Origin = 'BRASFORT."notasa.DBF".VALORRET1'
    end
    object notasRETENCAO2: TSmallintField
      FieldName = 'RETENCAO2'
      Origin = 'BRASFORT."notasa.DBF".RETENCAO2'
    end
    object notasVALORRET2: TFloatField
      FieldName = 'VALORRET2'
      Origin = 'BRASFORT."notasa.DBF".VALORRET2'
    end
    object notasRETENCAO3: TSmallintField
      FieldName = 'RETENCAO3'
      Origin = 'BRASFORT."notasa.DBF".RETENCAO3'
    end
    object notasVALORRET3: TFloatField
      FieldName = 'VALORRET3'
      Origin = 'BRASFORT."notasa.DBF".VALORRET3'
    end
    object notasIRRF: TFloatField
      FieldName = 'IRRF'
      Origin = 'BRASFORT."notasa.DBF".IRRF'
    end
    object notasCSLL: TFloatField
      FieldName = 'CSLL'
      Origin = 'BRASFORT."notasa.DBF".CSLL'
    end
    object notasCOFINS: TFloatField
      FieldName = 'COFINS'
      Origin = 'BRASFORT."notasa.DBF".COFINS'
    end
    object notasPIS: TFloatField
      FieldName = 'PIS'
      Origin = 'BRASFORT."notasa.DBF".PIS'
    end
    object notasFEDERAL: TFloatField
      FieldName = 'FEDERAL'
      Origin = 'BRASFORT."notasa.DBF".FEDERAL'
    end
    object notasBANCO: TSmallintField
      FieldName = 'BANCO'
      Origin = 'BRASFORT."notasa.DBF".BANCO'
    end
    object notasALIQISS: TFloatField
      FieldName = 'ALIQISS'
      Origin = 'BRASFORT."notasa.DBF".ALIQISS'
    end
    object notasISS: TFloatField
      FieldName = 'ISS'
      Origin = 'BRASFORT."notasa.DBF".ISS'
    end
    object notasIMPRESSA: TStringField
      FieldName = 'IMPRESSA'
      Origin = 'BRASFORT."notasa.DBF".IMPRESSA'
      Size = 1
    end
    object notasTOTAL: TFloatField
      FieldName = 'TOTAL'
      Origin = 'BRASFORT."notasa.DBF".TOTAL'
    end
    object notasRECEBTO: TDateField
      FieldName = 'RECEBTO'
      Origin = 'BRASFORT."notasa.DBF".RECEBTO'
    end
    object notasCANCELA: TStringField
      FieldName = 'CANCELA'
      Origin = 'BRASFORT."notasa.DBF".CANCELA'
      Size = 1
    end
    object notasMATERIAL: TStringField
      FieldName = 'MATERIAL'
      Origin = 'BRASFORT."notasa.DBF".MATERIAL'
      Size = 1
    end
    object notasVALETRANSP: TFloatField
      FieldName = 'VALETRANSP'
      Origin = 'BRASFORT."notasa.DBF".VALETRANSP'
    end
    object notasVALEALIMEN: TFloatField
      FieldName = 'VALEALIMEN'
      Origin = 'BRASFORT."notasa.DBF".VALEALIMEN'
    end
    object notasINSS: TStringField
      FieldName = 'INSS'
      Origin = 'BRASFORT."notasa.DBF".INSS'
      Size = 7
    end
    object notasVMATERIAL: TFloatField
      FieldName = 'VMATERIAL'
      Origin = 'BRASFORT."notasa.DBF".VMATERIAL'
    end
    object notasCCUSTO: TStringField
      FieldName = 'CCUSTO'
      Origin = 'BRASFORT."notasa.DBF".CCUSTO'
      Size = 3
    end
    object notasCCUSTO1: TStringField
      FieldName = 'CCUSTO1'
      Origin = 'BRASFORT."notasa.DBF".CCUSTO1'
      Size = 3
    end
    object notasEMPRESA: TSmallintField
      FieldName = 'EMPRESA'
      Origin = 'BRASFORT."notasa.DBF".EMPRESA'
    end
  end
  object itens: TQuery
    DatabaseName = 'Brasfort'
    SQL.Strings = (
      'select * from itemadmi')
    Left = 536
    Top = 80
    object itensNOTA: TFloatField
      FieldName = 'NOTA'
      Origin = 'BRASFORT."itemadmi.DBF".NOTA'
    end
    object itensDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Origin = 'BRASFORT."itemadmi.DBF".DESCRICAO'
      Size = 37
    end
    object itensUNITARIO: TFloatField
      FieldName = 'UNITARIO'
      Origin = 'BRASFORT."itemadmi.DBF".UNITARIO'
    end
    object itensVALOR: TFloatField
      FieldName = 'VALOR'
      Origin = 'BRASFORT."itemadmi.DBF".VALOR'
    end
    object itensEMPRESA: TSmallintField
      FieldName = 'EMPRESA'
      Origin = 'BRASFORT."itemadmi.DBF".EMPRESA'
    end
    object itensTIPOSERV: TSmallintField
      FieldName = 'TIPOSERV'
      Origin = 'BRASFORT."ITEMADMI.DBF".TIPOSERV'
    end
  end
  object ds_notas: TDataSource
    DataSet = notas
    Left = 248
    Top = 64
  end
  object retencao: TQuery
    DatabaseName = 'Brasfort'
    SQL.Strings = (
      'select * from retencao where ')
    Left = 152
    Top = 264
    object retencaoCODIGO: TSmallintField
      FieldName = 'CODIGO'
      Origin = 'BRASFORT."retencao.DBF".CODIGO'
    end
    object retencaoLINHA1: TStringField
      FieldName = 'LINHA1'
      Origin = 'BRASFORT."retencao.DBF".LINHA1'
      Size = 64
    end
    object retencaoLINHA2: TStringField
      FieldName = 'LINHA2'
      Origin = 'BRASFORT."retencao.DBF".LINHA2'
      Size = 46
    end
    object retencaoALIQUOTA: TFloatField
      FieldName = 'ALIQUOTA'
      Origin = 'BRASFORT."retencao.DBF".ALIQUOTA'
    end
    object retencaoCODRECEITA: TSmallintField
      FieldName = 'CODRECEITA'
      Origin = 'BRASFORT."retencao.DBF".CODRECEITA'
    end
    object retencaoNOMERECEIT: TStringField
      FieldName = 'NOMERECEIT'
      Origin = 'BRASFORT."retencao.DBF".NOMERECEIT'
      Size = 70
    end
  end
  object Servicos: TQuery
    Active = True
    DatabaseName = 'Brasfort'
    SQL.Strings = (
      'select * from tiposerv where codigo not in (9999)'
      'order by codigo ')
    Left = 216
    Top = 192
    object ServicosCODIGO: TSmallintField
      FieldName = 'CODIGO'
      Origin = 'BRASFORT."tiposerv.DBF".CODIGO'
    end
    object ServicosDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Origin = 'BRASFORT."tiposerv.DBF".DESCRICAO'
      Size = 40
    end
  end
end
